home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / qb2 / pro15 / graftbs.inc < prev    next >
Text File  |  1990-08-20  |  23KB  |  1,133 lines
  1. '
  2. 'Subprogram interface file for TURBO BASIC
  3. '
  4.  
  5. 'Make sure default data type is integer
  6. DEFINT A-Z
  7.  
  8. 'Give color numbers meaningful names
  9. Black% = 0
  10. Blue% = 1
  11. Green% = 2
  12. Cyan% = 3
  13. Red% = 4
  14. Magenta% = 5
  15. Brown% = 6
  16. LightGray% = 7
  17. DarkGray% = 8
  18. LightBlue% = 9
  19. LightGreen% = 10
  20. LightCyan% = 11
  21. LightRed% = 12
  22. LightMagenta% = 13
  23. Yellow% = 14
  24. White% = 15
  25.  
  26. 'Give put options meaningful names
  27. PutPreset% = 1
  28. PutPset% = 2
  29. PutAnd% = 3
  30. PutOr% = 4
  31. PutXor% = 5
  32.  
  33. 'Give Tandy11 driver status meaningful names
  34. Tandy11.True% = 1
  35. Tandy11.False% = 0
  36.  
  37. SUB Animate INLINE
  38.  
  39.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  40.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  41.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  42.   $INLINE &H5E,&HA,&H8B,&HF,&HC5
  43.   $INLINE &H56,&H6,&HB8,&H1C,&HEE
  44.   $INLINE &HCD,&H10,&H1F,&H5D
  45.  
  46. END SUB
  47.  
  48. SUB AudioOff INLINE
  49.  
  50.   $INLINE &HB8,&H80,&HEE,&HBB,&HA
  51.   $INLINE &H0,&HCD,&H10
  52.  
  53. END SUB
  54.  
  55. SUB ClearKey
  56.  
  57.   WHILE INKEY$ <> ""
  58.   WEND
  59.  
  60. END SUB
  61.  
  62. SUB ClearScreen INLINE
  63.  
  64.   $INLINE &HB8,&H0,&HEE,&HCD,&H10
  65.  
  66. END SUB
  67.  
  68. SUB ColorOff INLINE
  69.  
  70.   $INLINE &HB8,&H1,&HEE,&HBB,&H0
  71.   $INLINE &H0,&HCD,&H10
  72.  
  73. END SUB
  74.  
  75. SUB ColorOn INLINE
  76.  
  77.   $INLINE &HB8,&H1,&HEE,&HBB,&H1
  78.   $INLINE &H0,&HCD,&H10
  79.  
  80. END SUB
  81.  
  82. SUB CurrentPoint INLINE
  83.  
  84.   $INLINE &H55,&H89,&HE5,&HB8,&HA
  85.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  86.   $INLINE &HA,&H26,&H89,&H1D,&HC4
  87.   $INLINE &H7E,&H6,&H26,&H89,&HD
  88.   $INLINE &H5D
  89.  
  90. END SUB
  91.  
  92. SUB CursorOff INLINE
  93.  
  94.   $INLINE &HB8,&H17,&HEE,&HBB,&H0
  95.   $INLINE &H0,&HCD,&H10
  96.  
  97. END SUB
  98.  
  99. SUB CursorOn INLINE
  100.  
  101.   $INLINE &HB8,&H17,&HEE,&HBB,&H1
  102.   $INLINE &H0,&HCD,&H10
  103.  
  104. END SUB
  105.  
  106. SUB CursorStatus INLINE
  107.  
  108.   $INLINE &H55,&H89,&HE5,&HB8,&H18
  109.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  110.   $INLINE &HA,&H26,&H89,&H1D,&HC4
  111.   $INLINE &H7E,&H6,&H26,&H89,&HD
  112.   $INLINE &H5D
  113.  
  114. END SUB
  115.  
  116. SUB DrawBox INLINE
  117.  
  118.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  119.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  120.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  121.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  122.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  123.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  124.   $INLINE &HE,&HEE,&HCD,&H10,&H1F
  125.   $INLINE &H5D
  126.  
  127. END SUB
  128.  
  129. SUB DrawBoxC INLINE
  130.  
  131.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  132.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  133.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  134.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  135.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  136.   $INLINE &H22,&HEE,&HCD,&H10,&H1F
  137.   $INLINE &H5D
  138.  
  139. END SUB
  140.  
  141. SUB LowGraphics
  142.  
  143.   CALL GetSystem(0, Status%)
  144.   IF Status% <> &HDEAD THEN
  145.     SCREEN 0, 0, 0
  146.     WIDTH 80
  147.     PRINT "GRAFIX Driver Not Loaded"
  148.     PRINT "Press Any Key To Continue . . ."
  149.     CALL WaitKey
  150.     END
  151.   END IF
  152.   SCREEN 0, 0, 0
  153.   WIDTH 80
  154.   CALL SetSystem(13)
  155.  
  156. END SUB
  157.  
  158. SUB MediumGraphics
  159.  
  160.   CALL GetSystem(0, Status%)
  161.   IF Status% <> &HDEAD THEN
  162.     SCREEN 0, 0, 0
  163.     WIDTH 80
  164.     PRINT "GRAFIX Driver Not Loaded!"
  165.     PRINT "Press Any Key To Continue . . ."
  166.     CALL WaitKey
  167.     END
  168.   END IF
  169.   SCREEN 0, 0, 0
  170.   WIDTH 80
  171.   CALL SetSystem(2)
  172.  
  173. END SUB
  174.  
  175. SUB HighGraphics
  176.  
  177.   CALL GetSystem(0, Status%)
  178.   IF Status% <> &HDEAD THEN
  179.     SCREEN 0, 0, 0
  180.     WIDTH 80
  181.     PRINT "GRAFIX Driver Not Loaded!"
  182.     PRINT "Press Any Key To Continue . . ."
  183.     CALL WaitKey
  184.     END
  185.   END IF
  186.   CALL GetSystem(12, Tandy11%)
  187.   IF Tandy11% = Tandy11.False% THEN
  188.     SCREEN 0, 0, 0
  189.     WIDTH 80
  190.     PRINT "TANDY11 Driver For The 640x200x16 Color Graphics Mode Not Loaded!"
  191.     PRINT "Press Any Key To Continue . . ."
  192.     CALL WaitKey
  193.     END
  194.   END IF
  195.   SCREEN 0, 0, 0
  196.   WIDTH 80
  197.   CALL SetSystem(11)
  198.  
  199. END SUB
  200.  
  201. SUB ExitGraphics
  202.  
  203.   CALL SetSystem(3)
  204.   SCREEN 0, 0, 0
  205.   WIDTH 80
  206.  
  207. END SUB
  208.  
  209. SUB ExtCircle INLINE
  210.  
  211.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  212.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  213.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  214.   $INLINE &H5E,&H6,&H8B,&H1F,&HB8
  215.   $INLINE &HF,&HEE,&HCD,&H10,&H1F
  216.   $INLINE &H5D
  217.  
  218. END SUB
  219.  
  220. SUB ExtCircleC INLINE
  221.  
  222.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  223.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  224.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  225.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  226.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  227.   $INLINE &H21,&HEE,&HCD,&H10,&H1F
  228.   $INLINE &H5D
  229.  
  230. END SUB
  231.  
  232. SUB ExtGet INLINE
  233.  
  234.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  235.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  236.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  237.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  238.   $INLINE &H5E,&H16,&H8B,&H1F,&HC5
  239.   $INLINE &H56,&H6,&HB8,&H15,&HEE
  240.   $INLINE &HCD,&H10,&H1F,&H5D
  241.  
  242. END SUB
  243.  
  244. SUB ExtLine INLINE
  245.  
  246.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  247.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  248.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  249.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  250.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  251.   $INLINE &HB,&HEE,&HCD,&H10,&H1F
  252.   $INLINE &H5D
  253.  
  254. END SUB
  255.  
  256. SUB ExtLineC INLINE
  257.  
  258.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  259.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  260.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  261.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  262.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  263.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  264.   $INLINE &H1E,&HEE,&HCD,&H10,&H1F
  265.   $INLINE &H5D
  266.  
  267. END SUB
  268.  
  269. SUB ExtPaint INLINE
  270.  
  271.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  272.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  273.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  274.   $INLINE &H5E,&H6,&H8B,&HF,&HC5
  275.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  276.   $INLINE &H10,&HEE,&HCD,&H10,&H1F
  277.   $INLINE &H5D
  278.  
  279. END SUB
  280.  
  281. SUB ExtPut INLINE
  282.  
  283.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  284.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  285.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  286.   $INLINE &H5E,&H6,&H8B,&H1F,&HC5
  287.   $INLINE &H56,&HA,&HB8,&H16,&HEE
  288.   $INLINE &HCD,&H10,&H1F,&H5D
  289.  
  290. END SUB
  291.  
  292. SUB ExtSound INLINE
  293.  
  294.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  295.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  296.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  297.   $INLINE &H5E,&H6,&H8B,&HF,&HC5
  298.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  299.   $INLINE &H81,&HEE,&HCD,&H10,&H1F
  300.   $INLINE &H5D
  301.  
  302. END SUB
  303.  
  304. SUB FillBox INLINE
  305.  
  306.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  307.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  308.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  309.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  310.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  311.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  312.   $INLINE &H11,&HEE,&HCD,&H10,&H1F
  313.   $INLINE &H5D
  314.  
  315. END SUB
  316.  
  317. SUB FillBoxC INLINE
  318.  
  319.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  320.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  321.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  322.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  323.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  324.   $INLINE &H23,&HEE,&HCD,&H10,&H1F
  325.   $INLINE &H5D
  326.  
  327. END SUB
  328.  
  329. SUB GetAspect INLINE
  330.  
  331.   $INLINE &H55,&H89,&HE5,&HB8,&H5
  332.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  333.   $INLINE &HA,&H26,&H89,&H1D,&HC4
  334.   $INLINE &H7E,&H6,&H26,&H89,&HD
  335.   $INLINE &H5D
  336.  
  337. END SUB
  338.  
  339. SUB GetBackColor INLINE
  340.  
  341.   $INLINE &H55,&H89,&HE5,&HB8,&H3
  342.   $INLINE &HEE,&HBB,&H3,&H0,&HCD
  343.   $INLINE &H10,&HC4,&H7E,&H6,&H26
  344.   $INLINE &H89,&HD,&H5D
  345.  
  346. END SUB
  347.  
  348. SUB GetCursor INLINE
  349.  
  350.   $INLINE &H55,&H89,&HE5,&HB8,&H1A
  351.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  352.   $INLINE &HA,&H26,&H89,&HD,&HC4
  353.   $INLINE &H7E,&H6,&H26,&H89,&H1D
  354.   $INLINE &H5D
  355.  
  356. END SUB
  357.  
  358. SUB GetInput (Prompt$, GS$)
  359.  
  360.   CALL CursorStatus(SaveCursor%, SaveSize%)
  361.   CALL CursorOn
  362.   CALL NormalCursor
  363.   CALL PrintStringX(Prompt$)
  364.   CALL GetCursor(R%, StartCol%)
  365.   CALL GetSystem(12, Tandy11%)
  366.   IF Tandy11% = Tandy11.True% THEN
  367.     Maximum% = 80 - StartCol% + 1
  368.   ELSE
  369.     Maximum% = 40 - StartCol% + 1
  370.   END IF
  371.   P% = 1
  372.   Inserts% = 0
  373.   Temp$ = SPACE$(Maximum%)
  374.   WHILE INKEY$ <> ""
  375.   WEND
  376.   DO
  377.     K$ = ""
  378.     WHILE K$ = ""
  379.       K$ = INKEY$
  380.     WEND
  381.     K% = ASC(RIGHT$(K$, 1))
  382.     WhatToDo% = 0
  383.     IF LEN(K$) = 1 THEN
  384.       SELECT CASE K%
  385.         CASE 8  'Back Space
  386.           P% = P% - 1
  387.           IF P% < 1 THEN P% = 1
  388.           Temp$ = LEFT$(Temp$, P% - 1) + RIGHT$(Temp$, LEN(Temp$) - P%) + " "
  389.           WhatToDo% = 2
  390.         CASE 13  'Enter
  391.           EXIT LOOP
  392.         CASE 27  'Escape
  393.           Temp$ = SPACE$(Maximum%)
  394.           P% = 1
  395.           WhatToDo% = 2
  396.         CASE 32 TO 126  'ASC 32 - 126
  397.           IF Inserts% = 0 THEN
  398.             MID$(Temp$, P%, 1) = K$
  399.             WhatToDo% = 1
  400.             P% = P% + 1
  401.             IF P% > Maximum% THEN
  402.               P% = 1
  403.               WhatToDo% = 2
  404.             END IF
  405.           END IF
  406.           IF Inserts% = 1 THEN
  407.             Temp$ = LEFT$(Temp$, P% - 1) + K$ + MID$(Temp$, P%, LEN(Temp$) - P%)
  408.             P% = P% + 1
  409.             IF P% > Maximum% THEN P% = 1
  410.             WhatToDo% = 2
  411.           END IF
  412.         CASE ELSE
  413.       END SELECT
  414.     END IF
  415.     IF LEN(K$) = 2 THEN
  416.       SELECT CASE K%
  417.         CASE 71  'Home
  418.           P% = 1
  419.         CASE 75  'Cursor Left
  420.           P% = P% - 1
  421.           IF P% < 1 THEN P% = 1
  422.         CASE 77  'Cursor Right
  423.           P% = P% + 1
  424.           IF P% > Maximum% THEN P% = Maximum%
  425.         CASE 79  'End
  426.           FOR X% = Maximum% TO 1 STEP -1
  427.             IF MID$(Temp$, X%, 1) <> " " THEN EXIT FOR
  428.           NEXT X%
  429.           P% = X% + 1
  430.           IF P% = Maximum% + 1 THEN P% = Maximum%
  431.         CASE 82  'Insert
  432.           IF Inserts% = 0 THEN
  433.             Inserts% = 1
  434.             CALL HalfCursor
  435.           ELSE
  436.             Inserts% = 0
  437.             CALL NormalCursor
  438.           END IF
  439.         CASE 83  'Delete
  440.           Temp$ = LEFT$(Temp$, P% - 1) + RIGHT$(Temp$, LEN(Temp$) - P%) + " "
  441.           WhatToDo% = 2
  442.         CASE ELSE
  443.       END SELECT
  444.     END IF
  445.     SELECT CASE WhatToDo%
  446.       CASE 0
  447.         CALL SetCursor(R%, (StartCol% + P% - 1))
  448.       CASE 1
  449.         CALL SetCursor(R%, (StartCol% + P% - 2))
  450.         CALL PrintStringX(K$)
  451.         CALL SetCursor(R%, (StartCol% + P% - 1))
  452.       CASE 2
  453.         CALL SetCursor(R%, StartCol%)
  454.         CALL PrintStringX(Temp$)
  455.         CALL SetCursor(R%, (StartCol% + P% - 1))
  456.     END SELECT
  457.   LOOP
  458.   FOR X% = Maximum% TO 1 STEP -1
  459.     IF MID$(Temp$, X%, 1) <> " " THEN EXIT FOR
  460.   NEXT X%
  461.   GS$ = LEFT$(Temp$, X%)
  462.   R% = R% + 1
  463.   IF R% > 25 THEN R% = 1
  464.   CALL SetCursor(R%, 1)
  465.   IF SaveCursor% = 0 THEN CALL CursorOff
  466.   IF SaveCursor% = 1 THEN CALL CursorOn
  467.   IF SaveSize% = 0 THEN CALL NormalCursor
  468.   IF SaveSize% = 1 THEN CALL HalfCursor
  469. END SUB
  470.  
  471. SUB GetPlotColor INLINE
  472.  
  473.   $INLINE &H55,&H89,&HE5,&HB8,&H3
  474.   $INLINE &HEE,&HBB,&H1,&H0,&HCD
  475.   $INLINE &H10,&HC4,&H7E,&H6,&H26
  476.   $INLINE &H89,&HD,&H5D
  477.  
  478. END SUB
  479.  
  480. SUB GetSystem INLINE
  481.  
  482.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  483.   $INLINE &HA,&H26,&H8B,&H1D,&HB8
  484.   $INLINE &H80,&HEE,&HCD,&H10,&HC4
  485.   $INLINE &H7E,&H6,&H26,&H89,&H5
  486.   $INLINE &H5D
  487.  
  488. END SUB
  489.  
  490. SUB GetTextColor INLINE
  491.  
  492.   $INLINE &H55,&H89,&HE5,&HB8,&H3
  493.   $INLINE &HEE,&HBB,&H2,&H0,&HCD
  494.   $INLINE &H10,&HC4,&H7E,&H6,&H26
  495.   $INLINE &H89,&HD,&H5D
  496.  
  497. END SUB
  498.  
  499. SUB GraphStatus INLINE
  500.  
  501.   $INLINE &H55,&H89,&HE5,&HB8,&H80
  502.   $INLINE &HEE,&HBB,&H1,&H0,&HCD
  503.   $INLINE &H10,&HC4,&H7E,&H6,&H26
  504.   $INLINE &H89,&H5,&H5D
  505.  
  506. END SUB
  507.  
  508. SUB HalfCursor INLINE
  509.  
  510.   $INLINE &HB8,&H17,&HEE,&HBB,&H3
  511.   $INLINE &H0,&HCD,&H10
  512.  
  513. END SUB
  514.  
  515. SUB LineRel INLINE
  516.  
  517.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  518.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  519.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  520.   $INLINE &HB8,&HD,&HEE,&HCD,&H10
  521.   $INLINE &H5D
  522.  
  523. END SUB
  524.  
  525. SUB LineRelC INLINE
  526.  
  527.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  528.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  529.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  530.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  531.   $INLINE &H20,&HEE,&HCD,&H10,&H1F
  532.   $INLINE &H5D
  533.  
  534. END SUB
  535.  
  536. SUB LineTo INLINE
  537.  
  538.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  539.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  540.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  541.   $INLINE &HB8,&HC,&HEE,&HCD,&H10
  542.   $INLINE &H5D
  543.  
  544. END SUB
  545.  
  546. SUB LineToC INLINE
  547.  
  548.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  549.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  550.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  551.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  552.   $INLINE &H1F,&HEE,&HCD,&H10,&H1F
  553.   $INLINE &H5D
  554.  
  555. END SUB
  556.  
  557. SUB MoveRel INLINE
  558.  
  559.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  560.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  561.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  562.   $INLINE &HB8,&H9,&HEE,&HCD,&H10
  563.   $INLINE &H5D
  564.  
  565. END SUB
  566.  
  567. SUB MoveTo INLINE
  568.  
  569.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  570.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  571.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  572.   $INLINE &HB8,&H8,&HEE,&HCD,&H10
  573.   $INLINE &H5D
  574.  
  575. END SUB
  576.  
  577. SUB Noise INLINE
  578.  
  579.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  580.   $INLINE &H5E,&HA,&H8B,&HF,&HC5
  581.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  582.   $INLINE &H5E,&HE,&H8B,&H1F,&HB8
  583.   $INLINE &H82,&HEE,&HCD,&H10,&H1F
  584.   $INLINE &H5D
  585.  
  586. END SUB
  587.  
  588. SUB NoiseBufOff INLINE
  589.  
  590.   $INLINE &HB8,&H80,&HEE,&HBB,&H9
  591.   $INLINE &H0,&HCD,&H10
  592.  
  593. END SUB
  594.  
  595. SUB NoiseBufOn INLINE
  596.  
  597.   $INLINE &HB8,&H80,&HEE,&HBB,&H8
  598.   $INLINE &H0,&HCD,&H10
  599.  
  600. END SUB
  601.  
  602. SUB NoiseOff INLINE
  603.  
  604. $INLINE &HB8,&H80,&HEE,&HBB,&H7
  605. $INLINE &H0,&HCD,&H10
  606.  
  607. END SUB
  608.  
  609. SUB NormalCursor INLINE
  610.  
  611.   $INLINE &HB8,&H17,&HEE,&HBB,&H2
  612.   $INLINE &H0,&HCD,&H10
  613.  
  614. END SUB
  615.  
  616. SUB PaletteUsing INLINE
  617.  
  618.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  619.   $INLINE &H56,&H6,&HB8,&H13,&HEE
  620.   $INLINE &HCD,&H10,&H1F,&H5D
  621.  
  622. END SUB
  623.  
  624. SUB Pause INLINE
  625.  
  626.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  627.   $INLINE &H6,&H26,&H8B,&H1D,&HB8
  628.   $INLINE &H83,&HEE,&HCD,&H10,&H5D
  629.  
  630. END SUB
  631.  
  632. SUB PlotPoint INLINE
  633.  
  634.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  635.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  636.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  637.   $INLINE &HB8,&H6,&HEE,&HCD,&H10
  638.   $INLINE &H5D
  639.  
  640. END SUB
  641.  
  642. SUB PlotPointC INLINE
  643.  
  644.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  645.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  646.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  647.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  648.   $INLINE &H1D,&HEE,&HCD,&H10,&H1F
  649.   $INLINE &H5D
  650.  
  651. END SUB
  652.  
  653. SUB PointColor INLINE
  654.  
  655.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  656.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  657.   $INLINE &H5E,&HA,&H8B,&H3F,&HB8
  658.   $INLINE &H7,&HEE,&HCD,&H10,&HC5
  659.   $INLINE &H5E,&H6,&H89,&H7,&H1F
  660.   $INLINE &H5D
  661.  
  662. END SUB
  663.  
  664. SUB PrintString INLINE
  665.  
  666.   $INLINE &H55,&H89,&HE5,&H1E,&HA1
  667.   $INLINE &H0,&H0,&HC5,&H7E,&H6
  668.   $INLINE &H8B,&HD,&H81,&HE1,&HFF
  669.   $INLINE &H7F,&H8B,&H55,&H2,&HBB
  670.   $INLINE &H1,&H0,&H8E,&HD8,&HB8
  671.   $INLINE &H1B,&HEE,&HCD,&H10,&H1F
  672.   $INLINE &H5D
  673.  
  674. END SUB
  675.  
  676. SUB PrintStringX INLINE
  677.  
  678.   $INLINE &H55,&H89,&HE5,&H1E,&HA1
  679.   $INLINE &H0,&H0,&HC5,&H7E,&H6
  680.   $INLINE &H8B,&HD,&H81,&HE1,&HFF
  681.   $INLINE &H7F,&H8B,&H55,&H2,&HBB
  682.   $INLINE &H0,&H0,&H8E,&HD8,&HB8
  683.   $INLINE &H1B,&HEE,&HCD,&H10,&H1F
  684.   $INLINE &H5D
  685.  
  686. END SUB
  687.  
  688.  
  689. SUB ResetPalette INLINE
  690.  
  691.   $INLINE &HB8,&H14,&HEE,&HCD,&H10
  692.  
  693. END SUB
  694.  
  695. SUB SetAspect INLINE
  696.  
  697.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  698.   $INLINE &HA,&H26,&H8B,&H1D,&HC4
  699.   $INLINE &H7E,&H6,&H26,&H8B,&HD
  700.   $INLINE &HB8,&H4,&HEE,&HCD,&H10
  701.   $INLINE &H5D
  702.  
  703. END SUB
  704.  
  705. SUB SetBackColor INLINE
  706.  
  707.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  708.   $INLINE &H6,&H26,&H8B,&HD,&HBB
  709.   $INLINE &H3,&H0,&HB8,&H2,&HEE
  710.   $INLINE &HCD,&H10,&H5D
  711.  
  712. END SUB
  713.  
  714. SUB SetCursor INLINE
  715.  
  716.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  717.   $INLINE &HA,&H26,&H8B,&HD,&HC4
  718.   $INLINE &H7E,&H6,&H26,&H8B,&H1D
  719.   $INLINE &HB8,&H19,&HEE,&HCD,&H10
  720.   $INLINE &H5D
  721.  
  722. END SUB
  723.  
  724. SUB SetPalette INLINE
  725.  
  726.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  727.   $INLINE &HA,&H26,&H8B,&H1D,&HC4
  728.   $INLINE &H7E,&H6,&H26,&H8B,&HD
  729.   $INLINE &HB8,&H12,&HEE,&HCD,&H10
  730.   $INLINE &H5D
  731.  
  732. END SUB
  733.  
  734. SUB SetPlotColor INLINE
  735.  
  736.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  737.   $INLINE &H6,&H26,&H8B,&HD,&HBB
  738.   $INLINE &H1,&H0,&HB8,&H2,&HEE
  739.   $INLINE &HCD,&H10,&H5D
  740.  
  741. END SUB
  742.  
  743. SUB SetSystem INLINE
  744.  
  745.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  746.   $INLINE &H6,&H26,&H8B,&H1D,&HB8
  747.   $INLINE &H80,&HEE,&HCD,&H10,&H5D
  748.  
  749. END SUB
  750.  
  751. SUB SetTextColor INLINE
  752.  
  753.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  754.   $INLINE &H6,&H26,&H8B,&HD,&HBB
  755.   $INLINE &H2,&H0,&HB8,&H2,&HEE
  756.   $INLINE &HCD,&H10,&H5D
  757.  
  758. END SUB
  759.  
  760. SUB SoundBufOff INLINE
  761.  
  762.   $INLINE &HB8,&H80,&HEE,&HBB,&H6
  763.   $INLINE &H0,&HCD,&H10
  764.  
  765. END SUB
  766.  
  767. SUB SoundBufOn INLINE
  768.  
  769.   $INLINE &HB8,&H80,&HEE,&HBB,&H5
  770.   $INLINE &H0,&HCD,&H10
  771.  
  772. END SUB
  773.  
  774. SUB SoundOff INLINE
  775.  
  776.   $INLINE &HB8,&H80,&HEE,&HBB,&H4
  777.   $INLINE &H0,&HCD,&H10
  778.  
  779. END SUB
  780.  
  781. SUB SpeakerOff INLINE
  782.  
  783.   $INLINE &HB8,&H2,&H80,&HCD,&H1A
  784.  
  785. END SUB
  786.  
  787. SUB SpeakerOn INLINE
  788.  
  789.   $INLINE &HB0,&H9F,&HE6,&HC0,&HB0
  790.   $INLINE &HBF,&HE6,&HC0,&HB0,&HDF
  791.   $INLINE &HE6,&HC0,&HB8,&H3,&H80
  792.   $INLINE &HCD,&H1A
  793.  
  794. END SUB
  795.  
  796. SUB WaitKey
  797.  
  798.   CALL ClearKey
  799.   WHILE INKEY$ = ""
  800.   WEND
  801.  
  802. END SUB
  803.  
  804. SUB XorPoint INLINE
  805.  
  806.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  807.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  808.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  809.   $INLINE &HB8,&H24,&HEE,&HCD,&H10
  810.   $INLINE &H5D
  811.  
  812. END SUB
  813.  
  814. SUB XorPointC INLINE
  815.  
  816.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  817.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  818.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  819.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  820.   $INLINE &H25,&HEE,&HCD,&H10,&H1F
  821.   $INLINE &H5D
  822.  
  823. END SUB
  824.  
  825. SUB XorLine INLINE
  826.  
  827.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  828.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  829.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  830.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  831.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  832.   $INLINE &H26,&HEE,&HCD,&H10,&H1F
  833.   $INLINE &H5D
  834.  
  835. END SUB
  836.  
  837. SUB XorLineC INLINE
  838.  
  839.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  840.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  841.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  842.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  843.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  844.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  845.   $INLINE &H27,&HEE,&HCD,&H10,&H1F
  846.   $INLINE &H5D
  847.  
  848. END SUB
  849.  
  850. SUB XorLineTo INLINE
  851.  
  852.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  853.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  854.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  855.   $INLINE &HB8,&H28,&HEE,&HCD,&H10
  856.   $INLINE &H5D
  857.  
  858. END SUB
  859.  
  860. SUB XorLineToC INLINE
  861.  
  862.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  863.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  864.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  865.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  866.   $INLINE &H29,&HEE,&HCD,&H10,&H1F
  867.   $INLINE &H5D
  868.  
  869. END SUB
  870.  
  871. SUB XorLineRel INLINE
  872.  
  873.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  874.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  875.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  876.   $INLINE &HB8,&H2A,&HEE,&HCD,&H10
  877.   $INLINE &H5D
  878.  
  879. END SUB
  880.  
  881. SUB XorLineRelC INLINE
  882.  
  883.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  884.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  885.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  886.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  887.   $INLINE &H2B,&HEE,&HCD,&H10,&H1F
  888.   $INLINE &H5D
  889.  
  890. END SUB
  891.  
  892. SUB XorDrawBox INLINE
  893.  
  894.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  895.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  896.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  897.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  898.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  899.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  900.   $INLINE &H2C,&HEE,&HCD,&H10,&H1F
  901.   $INLINE &H5D
  902.  
  903. END SUB
  904.  
  905. SUB XorDrawBoxC INLINE
  906.  
  907.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  908.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  909.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  910.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  911.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  912.   $INLINE &H2D,&HEE,&HCD,&H10,&H1F
  913.   $INLINE &H5D
  914.  
  915. END SUB
  916.  
  917. SUB XorFillBox INLINE
  918.  
  919.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  920.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  921.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  922.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  923.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  924.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  925.   $INLINE &H2E,&HEE,&HCD,&H10,&H1F
  926.   $INLINE &H5D
  927.  
  928. END SUB
  929.  
  930. SUB XorFillBoxC INLINE
  931.  
  932.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  933.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  934.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  935.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  936.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  937.   $INLINE &H2F,&HEE,&HCD,&H10,&H1F
  938.   $INLINE &H5D
  939.  
  940. END SUB
  941.  
  942. SUB XorCircle INLINE
  943.  
  944.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  945.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  946.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  947.   $INLINE &H5E,&H6,&H8B,&H1F,&HB8
  948.   $INLINE &H30,&HEE,&HCD,&H10,&H1F
  949.   $INLINE &H5D
  950.  
  951. END SUB
  952.  
  953. SUB XorCircleC INLINE
  954.  
  955.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  956.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  957.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  958.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  959.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  960.   $INLINE &H31,&HEE,&HCD,&H10,&H1F
  961.   $INLINE &H5D
  962.  
  963. END SUB
  964.  
  965. SUB Ellipse INLINE
  966.  
  967.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  968.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  969.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  970.   $INLINE &H5E,&H6,&H8B,&HF,&HC5
  971.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  972.   $INLINE &H32,&HEE,&HCD,&H10,&H1F
  973.   $INLINE &H5D
  974.  
  975. END SUB
  976.  
  977. SUB EllipseC INLINE
  978.  
  979.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  980.   $INLINE &H5E,&H16,&H8B,&H37,&HC5
  981.   $INLINE &H5E,&H12,&H8B,&H3F,&HC5
  982.   $INLINE &H5E,&HA,&H8B,&HF,&HC5
  983.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  984.   $INLINE &H5E,&HE,&H8B,&H1F,&HB8
  985.   $INLINE &H33,&HEE,&HCD,&H10,&H1F
  986.   $INLINE &H5D
  987.  
  988. END SUB
  989.  
  990. SUB XorEllipse INLINE
  991.  
  992.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  993.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  994.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  995.   $INLINE &H5E,&H6,&H8B,&HF,&HC5
  996.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  997.   $INLINE &H34,&HEE,&HCD,&H10,&H1F
  998.   $INLINE &H5D
  999.  
  1000. END SUB
  1001.  
  1002. SUB XorEllipseC INLINE
  1003.  
  1004.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  1005.   $INLINE &H5E,&H16,&H8B,&H37,&HC5
  1006.   $INLINE &H5E,&H12,&H8B,&H3F,&HC5
  1007.   $INLINE &H5E,&HA,&H8B,&HF,&HC5
  1008.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  1009.   $INLINE &H5E,&HE,&H8B,&H1F,&HB8
  1010.   $INLINE &H35,&HEE,&HCD,&H10,&H1F
  1011.   $INLINE &H5D
  1012.  
  1013. END SUB
  1014.  
  1015. SUB SetView INLINE
  1016.  
  1017.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  1018.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  1019.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  1020.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  1021.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  1022.   $INLINE &H36,&HEE,&HCD,&H10,&H1F
  1023.   $INLINE &H5D
  1024.  
  1025. END SUB
  1026.  
  1027. SUB GetView INLINE
  1028.  
  1029.   $INLINE &H55,&H89,&HE5,&H1E,&HB8
  1030.   $INLINE &H37,&HEE,&HCD,&H10,&H89
  1031.   $INLINE &HD8,&HC5,&H5E,&H12,&H89
  1032.   $INLINE &H7,&HC5,&H5E,&HE,&H89
  1033.   $INLINE &HF,&HC5,&H5E,&HA,&H89
  1034.   $INLINE &H37,&HC5,&H5E,&H6,&H89
  1035.   $INLINE &H3F,&H1F,&H5D
  1036.  
  1037. END SUB
  1038.  
  1039. SUB ResetView INLINE
  1040.  
  1041. $INLINE &HB8,&H38,&HEE,&HCD,&H10
  1042.  
  1043. END SUB
  1044.  
  1045. SUB GetTandy11 INLINE
  1046.  
  1047.   $INLINE &H55,&H89,&HE5,&HB8,&H80
  1048.   $INLINE &HEE,&HBB,&HC,&H0,&HCD
  1049.   $INLINE &H10,&HC4,&H5E,&H6,&H26
  1050.   $INLINE &H89,&H7,&H5D
  1051.  
  1052. END SUB
  1053.  
  1054. SUB GetScreen INLINE
  1055.  
  1056.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  1057.   $INLINE &H56,&H6,&HB8,&H39,&HEE
  1058.   $INLINE &HCD,&H10,&H1F,&H5D
  1059.  
  1060. END SUB
  1061.  
  1062. SUB PutScreen INLINE
  1063.  
  1064.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  1065.   $INLINE &H56,&H6,&HB8,&H3A,&HEE
  1066.   $INLINE &HCD,&H10,&H1F,&H5D
  1067.  
  1068. END SUB
  1069.  
  1070. SUB SetActivePage INLINE PUBLIC
  1071.  
  1072.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  1073.   $INLINE &H6,&H26,&H8B,&H1F,&HB8
  1074.   $INLINE &H3D,&HEE,&HCD,&H10,&H5D
  1075.  
  1076. END SUB
  1077.  
  1078. SUB SetDisplayPage INLINE PUBLIC
  1079.  
  1080.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  1081.   $INLINE &H6,&H26,&H8B,&H1F,&HB8
  1082.   $INLINE &H3B,&HEE,&HCD,&H10,&H5D
  1083.  
  1084. END SUB
  1085.  
  1086. SUB GetActivePage INLINE PUBLIC
  1087.  
  1088.   $INLINE &H55,&H89,&HE5,&HB8,&H3E
  1089.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  1090.   $INLINE &H6,&H26,&H89,&H1D,&H5D
  1091.  
  1092. END SUB
  1093.  
  1094. SUB GetDisplayPage INLINE PUBLIC
  1095.  
  1096.   $INLINE &H55,&H89,&HE5,&HB8,&H3C
  1097.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  1098.   $INLINE &H6,&H26,&H89,&H1D,&H5D
  1099.  
  1100. END SUB
  1101.  
  1102. SUB PageCopy INLINE PUBLIC
  1103.  
  1104.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  1105.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  1106.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  1107.   $INLINE &HB8,&H3F,&HEE,&HCD,&H10
  1108.   $INLINE &H5D
  1109.  
  1110. END SUB
  1111.  
  1112. SUB FastTimer INLINE PUBLIC
  1113.  
  1114.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  1115.   $INLINE &H6,&H26,&H8B,&H1F,&HB8
  1116.   $INLINE &H84,&HEE,&HCD,&H10,&H5D
  1117.  
  1118. END SUB
  1119.  
  1120. SUB ResetTimer INLINE PUBLIC
  1121.  
  1122.   $INLINE &HB8,&H85,&HEE,&HCD,&H10
  1123.  
  1124. END SUB
  1125.  
  1126. SUB GetTimer INLINE PUBLIC
  1127.  
  1128.   $INLINE &H55,&H89,&HE5,&HB8,&H86
  1129.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  1130.   $INLINE &H6,&H26,&H89,&H1D,&H5D
  1131.  
  1132. END SUB
  1133.